home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PBLIB1 / UNITS / PBDATA.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-03  |  3KB  |  75 lines
  1. {SECTION ..PbDATA }
  2. UNIT PbDATA;
  3.  
  4. INTERFACE
  5.  
  6.  
  7. {
  8. Description:  Global data for all programs
  9.  
  10. Author      : Howard Richoux
  11. Date        : 2/18/94
  12. Last revised:
  13. Application : IBM PC and compatibles, Turbo Pascal 7.0
  14. Status      : Placed in the Public Domain by HNR Software 1/94
  15. Published in: none
  16.  
  17. These variables are supported by PbPARMS  .CFG file loading
  18.  
  19. StandardpVarsInit - sets a group of standard variables, free decoding:
  20.     Internal   External(CFG)    Possible Use                   Default
  21.     --------   --------         ---------------------------    -------
  22.     pFirst     FIRST=<nnn>      First record number to keep    0
  23.     pLast      LAST=<nnn>       Last record number to keep     32700
  24.     pCount     COUNT=<nnn>      Number of records to keep      32700
  25.     pRecs      RECS=<nnn>       Number of records to keep      32700
  26.     pSkip      SKIP=<nnn>       Number of records to skip      0
  27.     pSize      SIZE=<nnn>       Record size                    16
  28.     pDelay     DELAY=<nnn>      millisecond delay              100
  29.  
  30.     pDataPath  DATAPATH=xx..x   Data directory                 ''
  31.     pOutFile                    CON LPT1, ...                  'CON'
  32.  
  33.     pDebug     DEBUG=ON         Turn On/Off debugging          false
  34.  
  35.     pSystemID                   TAG to identify system         ''
  36.     pPrinterID                  TAG to identify printer type   ''
  37.     pProgID    (*miscstuf*)     ID & version # of program      ''
  38.     pCurrFName                  file being operated on         ''
  39.     pExtraCFG  EXTRA=fspec      secondary CFG file             ''
  40. }
  41.  
  42. {SECTION ..PbPARMS_DATA }
  43. var pProgID                                 : string[24];
  44. var pSkip, pCount, pFirst, pLast, pRecs     : integer;
  45. var pDelay, pSize                           : integer;
  46. var pDataPath                               : string[60];
  47. var pDebug                                  : boolean;
  48. var pCurrFName, pOutFile                    : string[50];
  49. var pExtraCFG                               : string[50];
  50. var pSystemID,pPrinterID                    : string[12];
  51. var parmsinitted                            : boolean;
  52.  
  53.  
  54. IMPLEMENTATION
  55.  
  56. Procedure InitPbDATA;
  57.      begin
  58.      pSkip        := 0;     pCount   := 32700;
  59.      pFirst       := 0;     pLast    := 32700;     pRecs    := 32700;
  60.      pDelay       := 100;
  61.      pSize        := 16;
  62.      pDebug       := false;
  63.      pDataPath    := '';
  64.      parmsinitted := false;
  65.      pCurrFName   := '<pCurrFileName>';
  66.      pOutFile     := 'CON';
  67.      pProgID      := '<pProgID>';
  68.      pExtraCFG    := '';
  69.      end;
  70.  
  71.  
  72.      begin  {initialization}
  73.      InitPbDATA;
  74.      end.
  75.